home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / Config / WRITE.CONFIG < prev   
Encoding:
Text File  |  1994-12-29  |  12.0 KB  |  857 lines
  1. /* $VER: WRITE.CONFIG 3.848 */
  2. VERSIONCHECK 31090 "WRITE.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.  
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   M_QUIT
  23.   ;
  24.  
  25.  
  26. /* lokale Variablen */
  27.  
  28. SETVAR "_OPTIMIZE" TRUE
  29. SETVAR "_FRPATTERN" "~(#?(.info|.bak))"
  30. SETVAR "_AUTOINDENT" 5
  31.  
  32.  
  33. /* Tastaturbelegung */
  34.  
  35. KEY "control 1"
  36.   GETNUMBER "Speicher Makro :" 1
  37.   MACROREC _RN
  38.   ;
  39.  
  40. KEY "control 2"
  41.   MACROSTOP
  42.   ;
  43.  
  44. KEY "control 3"
  45.   GETNUMBER "Spiele Makro :" 1
  46.   MACROPLAY _RN 1
  47.   ;
  48.  
  49. KEY "control 4"
  50.   GETNUMBER "Führe Makro aus" 1
  51.   SETVAR "_Reg1" _RN
  52.   GETNUMBER "Führe n mal aus" 1
  53.   MACROPLAY _REG1 _RN
  54.   ;
  55.  
  56. KEY "numpad shift 1"
  57.   GOTO _XPOS _LENGTH
  58.   ;
  59.  
  60. KEY "numpad shift 2"
  61.   CURSORDOWN 0
  62.   ;
  63.  
  64. KEY "numpad shift 3"
  65.   PAGEDOWN 90
  66.   ;
  67.  
  68. KEY "numpad shift 4"
  69.   CURSORLEFT 0
  70.   ;
  71.  
  72. KEY "numpad shift 5"
  73.   SETTITLE "Marke gesetzt." 0
  74.   SETMARK
  75.   ;
  76.  
  77. KEY "numpad shift 6"
  78.   CURSORRIGHT 0
  79.   ;
  80.  
  81. KEY "control <"
  82.   GETNUMBER "Bewege Block x Spalten\nnach links :" 1
  83.   BLOCKLEFT _RN
  84.   ;
  85.  
  86. KEY "control >"
  87.   GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  88.   BLOCKRIGHT _RN
  89.   ;
  90.  
  91. KEY "control y"
  92.   DELETELINE
  93.   ;
  94.  
  95. KEY "alt y"
  96.   UNDELLINE
  97.   ;
  98.  
  99. KEY "control x"
  100.   GETNUMBER "Block ausschneiden in Buffer :" 1
  101.   COPYBLOCK _RN
  102.   DELETEBLOCK
  103.   ;
  104.  
  105. KEY "control c"
  106.   GETNUMBER "Kopiere Block in Buffer :" 1
  107.   COPYBLOCK _RN
  108.   SETTITLE "Block kopiert." 0
  109.   ;
  110.  
  111. KEY "control v"
  112.   GETNUMBER "Einfügen aus Buffer :" 1
  113.   INSERTBLOCK _RN
  114.   ;
  115.  
  116. KEY "numpad shift 7"
  117.   GOTO _XPOS 1
  118.   ;
  119.  
  120. KEY "numpad shift 8"
  121.   CURSORUP 0
  122.   ;
  123.  
  124. KEY "numpad shift 9"
  125.   PAGEUP 90
  126.   ;
  127.  
  128. KEY "backspace"
  129.   BACKSPACE 0
  130.   ;
  131.  
  132. KEY "tab"
  133.   TAB 0
  134.   ;
  135.  
  136. KEY "shift tab"
  137.   BACKTAB
  138.   ;
  139.  
  140. KEY "numpad enter"
  141.   RETURN
  142.   ;
  143.  
  144. KEY "return"
  145.   RETURN
  146.   ;
  147.  
  148. KEY "delete"
  149.   DELETE
  150.   ;
  151.  
  152. KEY "shift delete"
  153.   DELETETOEOL
  154.   ;
  155.  
  156. KEY "up"
  157.   CURSORUP 0
  158.   ;
  159.  
  160. KEY "shift up"
  161.   PAGEUP 90
  162.   ;
  163.  
  164. KEY "alt up"
  165.   GOTO _XPOS 1
  166.   ;
  167.  
  168. KEY "down"
  169.   CURSORDOWN 0
  170.   ;
  171.  
  172. KEY "shift down"
  173.   PAGEDOWN 90
  174.   ;
  175.  
  176. KEY "alt down"
  177.   GOTO _XPOS _LENGTH
  178.   ;
  179.  
  180. KEY "right"
  181.   CURSORRIGHT 0
  182.   ;
  183.  
  184. KEY "shift right"
  185.   GOTO @EOL @EOL
  186.   ;
  187.  
  188. KEY "alt right"
  189.   NEXTWORD
  190.   ;
  191.  
  192. KEY "left"
  193.   CURSORLEFT 0
  194.   ;
  195.  
  196. KEY "shift left"
  197.   GOTO @SOL @SOL
  198.   ;
  199.  
  200. KEY "alt left"
  201.   LASTWORD
  202.   ;
  203.  
  204. KEY "f1"
  205.   GOTEXTMARK 0
  206.   ;
  207.  
  208. KEY "shift f1"
  209.   SETTEXTMARK 0
  210.   ;
  211.  
  212. KEY "f2"
  213.   GOTEXTMARK 1
  214.   ;
  215.  
  216. KEY "shift f2"
  217.   SETTEXTMARK 1
  218.   ;
  219.  
  220. KEY "f3"
  221.   GOTEXTMARK HIGHER
  222.   ;
  223.  
  224. KEY "shift f3"
  225.   SETTEXTMARK HIGHER
  226.   ;
  227.  
  228. KEY "f4"
  229.   GOTEXTMARK 3
  230.   ;
  231.  
  232. KEY "shift f4"
  233.   SETTEXTMARK 3
  234.   ;
  235.  
  236. KEY "f5"
  237.   GOTEXTMARK 4
  238.   ;
  239.  
  240. KEY "shift f5"
  241.   SETTEXTMARK 4
  242.   ;
  243.  
  244. KEY "shift f6"
  245.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  246.   KEY "f6"
  247.     WRITETEXT _RS;
  248.   ;
  249.  
  250. KEY "shift f7"
  251.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  252.   KEY "f7"
  253.     WRITETEXT _RS;
  254.   ;
  255.  
  256. KEY "shift f8"
  257.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  258.   KEY "f8"
  259.     WRITETEXT _RS;
  260.   ;
  261.  
  262. KEY "shift f9"
  263.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  264.   KEY "f9"
  265.     WRITETEXT _RS;
  266.   ;
  267.  
  268. KEY "shift f10"
  269.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  270.   KEY "f10"
  271.     WRITETEXT _RS;
  272.   ;
  273.  
  274. KEY "help"
  275.   MESSAGEOK "Cursorkeys         : Bewegung im Text\nShift hoch/runter  : Seite hoch/runter\nShift links/rechts : Erster/letzter Buchstabe in d. Zeile\nalt   hoch/runter  : Erste/letzte Zeile\nalt   links/rechts : letztes/nächstes Wort\n<-                 : Backspace"
  276.   MESSAGEOK "Shift Del : Lösche bis EOL\nCtrl  y   : Lösche Zeile\nF1-F5     : Setze Textmarke\nf1-f5     : Springe zu Textmarke\nEscape    : Iconify"
  277.   ;
  278.  
  279. KEY "rawmouse lbutton mouse_leftpress"
  280.   GOTOMOUSE
  281.   ;
  282.  
  283. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  284.   IF {@CLEARRN}
  285.     GOTOMOUSE {@SAMEPOS};
  286.     SETMARK;
  287.     GOTOMOUSE ;
  288.   ;
  289.  
  290. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  291.   PANNEL
  292.   ;
  293.  
  294. KEY "rawmouse rbutton lbutton mouse_rightpress"
  295.   UNMARK
  296.   ;
  297.  
  298.  
  299. /* Menues */
  300.  
  301. MENU "Projekt"
  302.  
  303. ITEM "Öffne..." "O"
  304.   M_OPEN
  305.   ;
  306.  
  307. ITEM "Alten File neu laden" "alt r"
  308.   IF
  309.     COMPARE 0 _CHANGED;
  310.     NOP;
  311.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
  312.     BREAK 0 _RN 1 ;
  313.   OPEN _FILENAME
  314.   ;
  315.  
  316. ITEMBAR
  317.  
  318. ITEM "Setze/lösche..." ""
  319.   NOP
  320.   ;
  321.  
  322. SUB "Text unverändert" ""
  323.   SETVAR "_changed" 0
  324.   ;
  325.  
  326. SUB "Ändere Sleepmode" ""
  327.   IF
  328.     COMPARE 1 _SLEEPMODE;
  329.     SETVAR "_SleepMode" 0;
  330.     SETVAR "_SleepMode" 1;
  331.   ;
  332.  
  333. SUB "Ändere EditMode" ""
  334.   IF
  335.     COMPARE 1 _EDITMODE;
  336.     SETVAR "_EditMode" 0;
  337.     SETVAR "_EditMode" 1;
  338.   ;
  339.  
  340. ITEMBAR
  341.  
  342. ITEM "Neu" "alt n"
  343.   M_NEW
  344.   ;
  345.  
  346. ITEMBAR
  347.  
  348. ITEM "Umbenennen..." "R"
  349.   GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  350.   SETVAR "_FileName" _RS
  351.   SETVAR "_Path" _RS
  352.   ;
  353.  
  354. ITEM "Speichern" "S"
  355.   SAVE _FILENAME
  356.   ;
  357.  
  358. ITEM "Speichern als..." "A"
  359.   GETFILE "" "" {@SAVE}
  360.   SETVAR "_FileName" _PATH
  361.   SAVE _FILENAME
  362.   ;
  363.  
  364. ITEM "Speichern als RAW..." ""
  365.   GETFILE "" "" {@SAVE}
  366.   SAVE _PATH {@RAW}
  367.   ;
  368.  
  369. ITEM "Speichern & neu öffnen..." ""
  370.   SAVE _FILENAME
  371.   GETFILE "" ""
  372.   OPEN _PATH
  373.   ;
  374.  
  375. ITEM "Text ausdrucken" "*"
  376.   SAVE "PRT:"
  377.   ;
  378.  
  379. ITEMBAR
  380.  
  381. ITEM "Neues Fenster" ""
  382.   NOP
  383.   ;
  384.  
  385. SUB "GROSSES FENSTER" "B"
  386.   NEWED ""
  387.   WINDOW 0 0 0 0
  388.   ;
  389.  
  390. SUB "kleines Fenster" "W"
  391.   NEWED ""
  392.   WINDOW 100 50 100 50
  393.   ;
  394.  
  395. ITEM "Iconify" "escape"
  396.   ICONIFY
  397.   ;
  398.  
  399. ITEM "Hide" "alt h"
  400.   HIDE
  401.   ;
  402.  
  403. ITEM "WinArranger" "§"
  404.   WINARRANGER 1
  405.   ;
  406.  
  407. ITEM "WinManager" "$"
  408.   WINMANAGER
  409.   ;
  410.  
  411. ITEMBAR
  412.  
  413. ITEM "Über WRITE" "!"
  414.   ABOUT
  415.   ;
  416.  
  417. ITEMBAR
  418.  
  419. ITEM "Speichern & Verlassen" "E"
  420.   M_SAVE_QUIT
  421.   ;
  422.  
  423. ITEM "Ende" "Q"
  424.   M_QUIT
  425.   ;
  426.  
  427. MENU "Edieren"
  428.  
  429. ITEM "Undo" "ß"
  430.   UNDO 1
  431.   ;
  432.  
  433. ITEM "Undo..." ""
  434.   GETNUMBER "Wieviel Schritte\nrückgängig machen ?" 1
  435.   UNDO _RN
  436.   ;
  437.  
  438. ITEMBAR
  439.  
  440. ITEM "Setze Marke" "M"
  441.   SETTITLE "Marke gesetzt." 0
  442.   SETMARK
  443.   ;
  444.  
  445. ITEM "Lösche Marke" "U"
  446.   UNMARK
  447.   ;
  448.  
  449. ITEMBAR
  450.  
  451. ITEM "Ausschneiden" "X"
  452.   COPYBLOCK 0
  453.   DELETEBLOCK
  454.   ;
  455.  
  456. ITEM "Kopieren" "C"
  457.   COPYBLOCK 0
  458.   SETTITLE "Block kopiert." 0
  459.   ;
  460.  
  461. ITEM "Einfügen" "V"
  462.   INSERTBLOCK 0
  463.   ;
  464.  
  465. ITEM "Löschen" ""
  466.   DELETEBLOCK
  467.   ;
  468.  
  469. ITEMBAR
  470.  
  471. ITEM "Clipboard" ""
  472.   NOP
  473.   ;
  474.  
  475. SUB "Ausschneiden nach Clip" "alt x"
  476.   COPYBLOCK 0
  477.   BUFFERTOCLIP 0 0
  478.   DELETEBLOCK
  479.   ;
  480.  
  481. SUB "Nach Clip kopieren" "alt c"
  482.   COPYBLOCK 0
  483.   BUFFERTOCLIP 0 0
  484.   SETTITLE "Block kopiert." 0
  485.   ;
  486.  
  487. SUB "Einfügen aus Clip" "alt v"
  488.   CLIPTOBUFFER 0 0
  489.   INSERTBLOCK 0
  490.   ;
  491.  
  492. SUB "Buffer nach Clip" ""
  493.   BUFFERTOCLIP 0 0
  494.   ;
  495.  
  496. SUB "Clip nachBuffer" ""
  497.   CLIPTOBUFFER 0 0
  498.   ;
  499.  
  500. ITEMBAR
  501.  
  502. ITEM "Lösche Buffer" ""
  503.   CLEARBUFFER 0
  504.   SETTITLE "OK." 0
  505.   ;
  506.  
  507. ITEM "Speicher Block als..." ""
  508.   COPYBLOCK 0
  509.   GETFILE "" "" {@SAVE}
  510.   SAVEBUFFER _PATH 0
  511.   ;
  512.  
  513. ITEM "Drucke Block" ""
  514.   COPYBLOCK 0
  515.   SAVEBUFFER "PRT:" 0
  516.   ;
  517.  
  518. ITEM "Füge File ein..." ""
  519.   GETFILE "" ""
  520.   LOADBUFFER _PATH 0
  521.   INSERTBLOCK 0
  522.   ;
  523.  
  524. ITEMBAR
  525.  
  526. ITEM "Block links" "<"
  527.   BLOCKLEFT 1
  528.   ;
  529.  
  530. ITEM "Block rechts" ">"
  531.   BLOCKRIGHT 1
  532.   ;
  533.  
  534. ITEM "Block linksbündig..." ""
  535.   GETNUMBER "Mache Block bündig zu Zeile :" _XPOS
  536.   BLOCKLFTALIG _RN
  537.   ;
  538.  
  539. ITEM "Block rechtsbündig..." ""
  540.   GETNUMBER "Mach Block bündig zu Zeile :" _XPOS
  541.   BLOCKRGHTALIG _RN
  542.   ;
  543.  
  544. ITEM "Zentriere Block..." ""
  545.   BLOCKCENTER 1 80
  546.   ;
  547.  
  548. MENU "Internes"
  549.  
  550. ITEM "Parse Buffer..." ""
  551.   GETNUMBER "Parse Buffer :" 0
  552.   SETTITLE "PARSING..." 1
  553.   PARSEBUFFER _RN
  554.   FLASH
  555.   ;
  556.  
  557. ITEM "Parse Block" ""
  558.   COPYBLOCK 1
  559.   SETTITLE "PARSING..." 1
  560.   PARSEBUFFER 1
  561.   FLASH
  562.   ;
  563.  
  564. ITEM "Parse File..." ""
  565.   GETFILE "" ""
  566.   LOADBUFFER _PATH 1
  567.   SETTITLE "PARSING..." 1
  568.   PARSEBUFFER 1
  569.   FLASH
  570.   ;
  571.  
  572. ITEMBAR
  573.  
  574. ITEM "Führe Buffer aus..." ""
  575.   GETNUMBER "Führe Buffer aus :" 0
  576.   SETTITLE "EXECUTING..." 1
  577.   DOBUFFER _RN
  578.   FLASH
  579.   ;
  580.  
  581. ITEM "Führe Block aus" ""
  582.   COPYBLOCK 1
  583.   SETTITLE "EXECUTING..." 1
  584.   DOBUFFER 1
  585.   FLASH
  586.   ;
  587.  
  588. ITEM "Führe Komando aus..." "D"
  589.   GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  590.   DOSTRING _RS
  591.   ;
  592.  
  593. ITEM "Führe File aus..." ""
  594.   GETFILE "" ""
  595.   LOADBUFFER _PATH 1
  596.   SETTITLE "EXECUTING..." 1
  597.   DOBUFFER 1
  598.   FLASH
  599.   ;
  600.  
  601. ITEMBAR
  602.  
  603. ITEM "Nehme Makro auf" "1"
  604.   MACROREC 0
  605.   ;
  606.  
  607. ITEM "Stoppe  Aufnahme" "2"
  608.   MACROSTOP
  609.   ;
  610.  
  611. ITEM "Spiele ab" "3"
  612.   MACROPLAY 0 1
  613.   ;
  614.  
  615. ITEM "Spiele mehrmals ab..." "4"
  616.   GETNUMBER "Replay it n times " 1
  617.   MACROPLAY 0 _RN
  618.   ;
  619.  
  620. MENU "Externes"
  621.  
  622. ITEM "Neue Shell" "."
  623.   SYSTEM "NewShell"
  624.   ;
  625.  
  626. ITEM "DOS-Execute..." ""
  627.   GETSTRING "Geben sie ein CLI-Komando ein :" ""
  628.   SYSTEM _RS {@ASYNC}
  629.   ;
  630.  
  631. ITEMBAR
  632.  
  633. ITEM "Lösche File..." ""
  634.   GETFILE "" ""
  635.   ;
  636.  
  637. ITEM "Erschaffe Directory..." ""
  638.   GETFILE "" "" {@SAVE}
  639.   ;
  640.  
  641. ITEMBAR
  642.  
  643. ITEM "Font..." ""
  644.   GETFONT
  645.   ;
  646.  
  647. MENU "ARexx"
  648.  
  649. ITEM "Führe Rexx aus..." ""
  650.   GETFILE "REXX:" "#?.(rexx|wrx)"
  651.   DOREXX _RS "" {@ASYNC}
  652.   ;
  653.  
  654. ITEMBAR
  655.  
  656. MENU "Utlities"
  657.  
  658. ITEM "Schreibe Zeichen..." "alt space"
  659.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  660.   WRITECHAR _RN
  661.   ;
  662.  
  663. ITEM "Zeige Zeit & Datum" "T"
  664.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  665.   ;
  666.  
  667. ITEMBAR
  668.  
  669. ITEM "UPPER word" "^"
  670.   UPPERBLOCK @SOW @SOW @EOW @EOW
  671.   ;
  672.  
  673. ITEM "lower word" "#"
  674.   LOWERBLOCK @SOW @SOW @EOW @EOW
  675.   ;
  676.  
  677. ITEMBAR
  678.  
  679. ITEM "Match Bracket" "("
  680.   MATCHBRACKET
  681.   ;
  682.  
  683. MENU "Suchen"
  684.  
  685. ITEM "Zähle..." ""
  686.   GETFINDREPLACE _FINDSTRING ""
  687.   IF
  688.     COMPARE _MARKED HIGHER;
  689.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  690.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  691.   MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  692.   ;
  693.  
  694. ITEMBAR
  695.  
  696. ITEM "Finde..." "F"
  697.   GETFINDREPLACE _FINDSTRING ""
  698.   IF
  699.     COMPARE _MARKED HIGHER;
  700.     FIND @MARKA @MARKA @MARKB @MARKB ;
  701.     FIND @CURSOR @CURSOR @EOT @EOT ;
  702.   ;
  703.  
  704. ITEM "Finde noch einmal" "N"
  705.   IF
  706.     COMPARE _MARKED HIGHER;
  707.     FIND @CURSOR @CURSOR @MARKB @MARKB ;
  708.     FIND @CURSOR @CURSOR @EOT @EOT ;
  709.   ;
  710.  
  711. ITEMBAR
  712.  
  713. ITEM "Ersetze..." "Y"
  714.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  715.   IF
  716.     COMPARE _MARKED HIGHER;
  717.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  718.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  719.   ;
  720.  
  721. ITEM "Ersetze noch einmal" "Z"
  722.   IF
  723.     COMPARE _MARKED HIGHER;
  724.     REPLACE @CURSOR @CURSOR @MARKB @MARKB ;
  725.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  726.   ;
  727.  
  728. ITEM "Ersetze alle..." ""
  729.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  730.   IF
  731.     COMPARE _MARKED HIGHER;
  732.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  733.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  734.   FLASH
  735.   ;
  736.  
  737. ITEM "Ersetze alle schnell..." ""
  738.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  739.   SILENT
  740.   IF
  741.     COMPARE _MARKED HIGHER;
  742.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  743.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  744.   WINDOW 0 0 0 0
  745.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  746.   ;
  747.  
  748. ITEMBAR
  749.  
  750. ITEM "Suche nach Muster..." ""
  751.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  752.   SETVAR "_PatCase" _RS
  753.   FINDPATTERN @CURSOR @EOT {@CASE}
  754.   ;
  755.  
  756. ITEM "Suche noch einmal" ""
  757.   FINDPATTERN @CURSOR @EOT {@CASE}
  758.   ;
  759.  
  760. ITEM "Suche nach Muster (no Case)..." "Ö"
  761.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  762.   SETVAR "_PatNoCase" _RS
  763.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  764.   ;
  765.  
  766. ITEM "Suche noch einmal" "Ä"
  767.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  768.   ;
  769.  
  770. ITEMBAR
  771.  
  772. ITEM "Springe zu Zeile..." "G"
  773.   GETNUMBER "Springe zu Zeile :" _YPOS
  774.   GOTO _XPOS _RN
  775.   ;
  776.  
  777. ITEMBAR
  778.  
  779. ITEM "Zeige Index..." "J"
  780.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?"
  781.   SHOWINDEX _RS {@CASE}
  782.   ;
  783.  
  784. MENU "Falten"
  785.  
  786. ITEM "Falte Block" "alt f"
  787.   FOLD @MARKA @MARKB
  788.   ;
  789.  
  790. ITEM "Entfalte Zeile" "alt u"
  791.   UNFOLD @CURSOR @CURSOR 1
  792.   ;
  793.  
  794. ITEM "Falte zurück" "alt shift f"
  795.   REFOLD
  796.   ;
  797.  
  798. ITEMBAR
  799.  
  800. ITEM "Entfalte alles..." ""
  801.   GETNUMBER "Wieviele Faltungsebenen\nsollen entfaltet werden ?" 1
  802.   UNFOLD @SOT @EOT _RN
  803.   ;
  804.  
  805. MENU "Prefs"
  806.  
  807. ITEM "Globale Prefs" ""
  808.   GPREFS
  809.   ;
  810.  
  811. ITEM "Prefs" "+"
  812.   PREFS
  813.   ;
  814.  
  815. ITEMBAR
  816.  
  817. ITEM "Lade Konfiguration..." ""
  818.   GETFILE _CONFIGPATH "#?.config"
  819.   LOADBUFFER _RS "1"
  820.   SETTITLE "EXECUTING..." 1
  821.   DOBUFFER 1
  822.   FLASH
  823.   ;
  824.  
  825. ITEMBAR
  826.  
  827. ITEM "Zeige Konfiguration" ""
  828.   GETFILE _CONFIGPATH "#?.config"
  829.   NEWED ""
  830.   WINDOW 0 0 0 0
  831.   OPEN _RS
  832.   ;
  833.  
  834. MENU "Hilfe"
  835.  
  836. ITEM "Help..." "Shift Help"
  837.   HELP
  838.   ;
  839.  
  840. ITEM "Zeige Variablen" ""
  841.   SHOWVARS
  842.   ;
  843.  
  844. ITEM "Zeige Funktionen" ""
  845.   SHOWFUNCTIONS
  846.   ;
  847.  
  848. ITEM "Zeige ASCII-Codes" ""
  849.   SHOWASCII
  850.   ;
  851.  
  852. ITEM "Hilfe zu Stichwort..." "?"
  853.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  854.   GUIDEHELP _RS
  855.   ;
  856.  
  857.